home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d7
/
apcp38.arc
/
#1212.ASP
< prev
next >
Wrap
Text File
|
1991-01-09
|
8KB
|
388 lines
goto init
dial:
strcmp s2 " "
if success
return
endif
clear
box 00 00 02 79 n9
atsay 00 08 n9 "╤══════════╤═════════════════════════════╤"
atsay 01 08 n9 "│ │ │"
atsay 02 08 n9 "╧══════════╧═════════════════════════════╧"
atsay 01 02 n8 s2
atsay 01 10 n8 "n/a "
atsay 01 21 n8 s3
atsay 01 51 n8 "n/a "
locate 05 00
transmit "C D/"
transmit s2
transmit "/12,xxxxnnnn,nnnnxxxx^m" ; PC-Pursuit Account and Password
rget s1
rget s1 80 40
rget s1 40
find s1 "CONNECTED"
if found
alarm 2
goto exit
else
strcpy s9 "M"
endif
return
exit:
fopeno "APCP.STR" text
fputs "#1212"
fputs s2
fcloseo
execute s2
top:
find s0 "*"
if found
strcpy s2 "#NODE"
goto exit
endif
find s0 "A"
if found
strcpy s2 "GAATL"
strcpy s3 "Atlanta, GA 404"
gosub dial
endif
find s0 "B"
if found
strcpy s2 "MABOS"
strcpy s3 "Boston, MA 617"
gosub dial
endif
find s0 "C"
if found
strcpy s2 "ILCHI"
strcpy s3 "Chicago, IL 312 815"
gosub dial
endif
find s0 "D"
if found
strcpy s2 "OHCLV"
strcpy s3 "Cleveland, OH 216"
gosub dial
endif
find s0 "E"
if found
strcpy s2 "TXDAL"
strcpy s3 "Dallas, TX 214 817"
gosub dial
endif
find s0 "F"
if found
strcpy s2 "CODEN"
strcpy s3 "Denver, CO 303"
gosub dial
endif
find s0 "G"
if found
strcpy s2 "MIDET"
strcpy s3 "Detroit, MI 313"
gosub dial
endif
find s0 "H"
if found
strcpy s2 "CAGLE"
strcpy s3 "Glendale, CA 818"
gosub dial
endif
find s0 "I"
if found
strcpy s2 "CTHAR"
strcpy s3 "Hartford, CT 203"
gosub dial
endif
find s0 "J"
if found
strcpy s2 "TXHOU"
strcpy s3 "Houston, TX 713"
gosub dial
endif
find s0 "K"
if found
strcpy s2 "MOKAN"
strcpy s3 "Kansas City, MO 816 913"
gosub dial
endif
find s0 "L"
if found
strcpy s2 "CALAN"
strcpy s3 "Los Angeles, CA 213"
gosub dial
endif
find s0 "M"
if found
strcpy s2 "FLMIA"
strcpy s3 "Miami, FL 305"
gosub dial
endif
find s0 "N"
if found
strcpy s2 "WIMIL"
strcpy s3 "Milwaukee, WI 414"
gosub dial
endif
find s0 "O"
if found
strcpy s2 "MNMIN"
strcpy s3 "Minneapolis, MN 612"
gosub dial
endif
find s0 "P"
if found
strcpy s2 "NJNEW"
strcpy s3 "Newark, NJ 201"
gosub dial
endif
find s0 "Q"
if found
strcpy s2 "NYNYO"
strcpy s3 "New York, NY 212 718"
gosub dial
endif
find s0 "R"
if found
strcpy s2 "CAPAL"
strcpy s3 "Palo Alto, CA 415 408"
gosub dial
endif
find s0 "S"
if found
strcpy s2 "PAPHI"
strcpy s3 "Philadelphia, PA 215"
gosub dial
endif
find s0 "T"
if found
strcpy s2 "AZPHO"
strcpy s3 "Phoenix, AZ 602"
gosub dial
endif
find s0 "U"
if found
strcpy s2 "ORPOR"
strcpy s3 "Portland, OR 503"
gosub dial
endif
find s0 "V"
if found
strcpy s2 "NCRTP"
strcpy s3 "Research Triangle Park 919"
gosub dial
endif
find s0 "W"
if found
strcpy s2 "CARIV"
strcpy s3 "Riverside, CA 714"
gosub dial
endif
find s0 "X"
if found
strcpy s2 "CASAC"
strcpy s3 "Sacramento, CA 916"
gosub dial
endif
find s0 "Y"
if found
strcpy s2 "UTSLC"
strcpy s3 "Salt Lake City, UT 801"
gosub dial
endif
find s0 "Z"
if found
strcpy s2 "CASAD"
strcpy s3 "San Diego, CA 619"
gosub dial
endif
find s0 "0"
if found
strcpy s2 "CASFA"
strcpy s3 "San Francisco, CA 415"
gosub dial
endif
find s0 "1"
if found
strcpy s2 "CASJO"
strcpy s3 "San Jose, CA 408 415"
gosub dial
endif
find s0 "2"
if found
strcpy s2 "CASAN"
strcpy s3 "Santa Ana, CA 714"
gosub dial
endif
find s0 "3"
if found
strcpy s2 "WASEA"
strcpy s3 "Seattle, WA 206"
gosub dial
endif
find s0 "4"
if found
strcpy s2 "MOSLO"
strcpy s3 "St. Louis, MO 314 618"
gosub dial
endif
find s0 "5"
if found
strcpy s2 "FLTAM"
strcpy s3 "Tampa, FL 813"
gosub dial
endif
find s0 "6"
if found
strcpy s2 "DCWAS"
strcpy s3 "Washington, DC 202 301 703"
gosub dial
endif
find s0 "7"
if found
strcpy s2 " "
strcpy s3 " xxx"
gosub dial
endif
find s0 "8"
if found
strcpy s2 " "
strcpy s3 " xxx"
gosub dial
endif
find s0 "9"
if found
strcpy s2 " "
strcpy s3 " xxx"
gosub dial
endif
find s0 "@"
if found
strcpy s2 " "
strcpy s3 " xxx"
gosub dial
endif
find s0 "#"
if found
strcpy s2 " "
strcpy s3 " xxx"
gosub dial
endif
find s0 "$"
if found
strcpy s2 " "
strcpy s3 " xxx"
gosub dial
endif
find s0 "%"
if found
strcpy s2 " "
strcpy s3 " xxx"
gosub dial
endif
find s0 "&"
if found
strcpy s2 " "
strcpy s3 " xxx"
gosub dial
endif
find s9 "M"
if found
strcpy s9 " "
goto top
endif
clear
box 00 00 02 79 n9
atsay 01 02 n8 "APCP: No city requested ... terminating ..."
locate 05 00
alarm 2
exit
init:
clear
init n9 07
init n8 07
box 00 00 02 79 n9
locate 05 00
if linked
atsay 01 28 n8 "Thom Little Associates"
pause 1
atsay 01 02 n8 "APCP: Initializing and resetting Telen"
atsay 01 40 n8 "et ... one moment please ..."
transmit "^m" ;
pause 1
transmit "D^m"
waitfor "=" 60
transmit "D1^m"
waitfor "@" 60
fopeno "APCP.STR" text
fputs "#1212"
fputs "MABOS"
fcloseo
strcpy s9 " "
else
atsay 01 02 n8 "APCP: Initializing and resetting Telen"
atsay 01 40 n8 "et ... one moment please ..."
endif
set databits 8
set parity none
transmit "^m^m"
transmit "@^m"
waitfor "@"
transmit "D^m"
waitfor "@" 30
pause 2
clear
box 00 00 22 38 n9
box 00 41 22 79 n9
atsay 01 02 n8 "A Atlanta, GA ........... 404 GAATL"
atsay 02 02 n8 "B Boston, MA ............ 617 MABOS"
atsay 03 02 n8 "C Chicago, IL ....... 312 815 ILCHI"
atsay 04 02 n8 "D Cleveland, OH ......... 216 OHCLV"
atsay 05 02 n8 "E Dallas, TX ........ 214 817 TXDAL"
atsay 06 02 n8 "F Denver, CO ............ 303 CODEN"
atsay 07 02 n8 "G Detroit, MI ........... 313 MIDET"
atsay 08 02 n8 "H Glendale, CA .......... 818 CAGLE"
atsay 09 02 n8 "I Hartford, CT .......... 203 CTHAR"
atsay 10 02 n8 "J Houston, TX ........... 713 TXHOU"
atsay 11 02 n8 "K Kansas City, MO ... 816 913 MOKAN"
atsay 12 02 n8 "L Los Angeles, CA ....... 213 CALAN"
atsay 13 02 n8 "M Miami, FL ............. 305 FLMIA"
atsay 14 02 n8 "N Milwaukee, WI ......... 414 WIMIL"
atsay 15 02 n8 "O Minneapolis, MN ....... 612 MNMIN"
atsay 16 02 n8 "P Newark, NJ ............ 201 NJNEW"
atsay 17 02 n8 "Q New York, NY ...... 212 718 NYNYO"
atsay 18 02 n8 "R Palo Alto, CA ..... 415 408 CAPAL"
atsay 19 02 n8 "S Philadelphia, PA ...... 215 PAPHI"
atsay 20 02 n8 "T Phoenix, AZ ........... 602 AZPHO"
atsay 21 02 n8 "U Portland, OR .......... 503 ORPOR"
atsay 01 43 n8 "V Res Tri Prk, NC ....... 919 NCRTP"
atsay 02 43 n8 "W Riverside, CA ......... 714 CARIV"
atsay 03 43 n8 "X Sacramento, CA ........ 916 CASAC"
atsay 04 43 n8 "Y Salt Lake City, UT .... 801 UTSLC"
atsay 05 43 n8 "Z San Diego, CA ......... 619 CASAD"
atsay 06 43 n8 "0 San Francisco, CA ..... 415 CASFA"
atsay 07 43 n8 "1 San Jose, CA ...... 408 415 CASJO"
atsay 08 43 n8 "2 Santa Ana, CA ......... 714 CASAN"
atsay 09 43 n8 "3 Seattle, WA ........... 206 WASEA"
atsay 10 43 n8 "4 St. Louis, MO ..... 314 618 MOSLO"
atsay 11 43 n8 "5 Tampa, FL ............. 813 FLTAM"
atsay 12 43 n8 "6 Washington, DC 202 301 703 DCWAS"
atsay 13 43 n8 "7 ....................... ... ....."
atsay 14 43 n8 "8 ....................... ... ....."
atsay 15 43 n8 "9 ....................... ... ....."
atsay 16 43 n8 "@ ....................... ... ....."
atsay 17 43 n8 "# ....................... ... ....."
atsay 18 43 n8 "& ....................... ... ....."
atsay 19 43 n8 "$ ....................... ... ....."
atsay 20 43 n8 "% ....................... ... ....."
atsay 21 43 n8 "* Telenet Direct Node Connect "
locate 23 00
get s0
goto top
return